home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / PLk / bench.e < prev    next >
Encoding:
Text File  |  1998-12-22  |  374 b   |  37 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    peach: PEACH;
  9.  
  10.    apple: APPLE;
  11.  
  12.    make is
  13.       local
  14.      i, limit: INTEGER
  15.       do
  16.      limit := 70_000_000
  17.      from
  18.         i := 0
  19.      until
  20.         i > limit
  21.      loop
  22.         !!apple.make(i)
  23.         i := i + 1
  24.      end
  25.      apple := Void
  26.      from
  27.         i := 0
  28.      until
  29.         i > limit
  30.      loop
  31.         !!peach.make(i)
  32.         i := i + 1
  33.      end
  34.       end
  35.    
  36. end
  37.